home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / shadow-2.bas < prev    next >
BASIC Source File  |  1994-06-23  |  1KB  |  45 lines

  1. 1 PRINT "       ***TIME WHEN THE SUN IS ON THE MERIDIAN***"
  2. 2 PRINT:PRINT
  3. 3 PRINT "        IN STEP 50 ENTER THE EQUATION OF TIME"
  4. 4 PRINT "        FOR THE MONTH AND DATE NUMBER SELECTED"
  5. 5 PRINT "        (+) IS Fast AND (-) IS Slow"
  6. 6 PRINT "        MAXIMUM ERROR WHEN USING TABLE 10 IS ABOUT .08 DEGREE"
  7. 10 PRINT:PRINT
  8. 15 INPUT "ENTER THE MONTH AND DAY NUMBER: MO, DA"; MO,DA
  9. 20 INPUT "ENTER LOCAL TIME ZONE + OR - T"; T
  10. 25 INPUT "ENTER LOCAL LONGITUDE: DA, MN, East or West"; LO,LN,DA$
  11. 30 A=LO+LN/60
  12. 35 IF DA$="E" THEN A=-A
  13. 40 B=A/15
  14. 45 C=B+12
  15. 50 INPUT "ENTER THE EQUATION OF TIME FROM THE TABLE:MN, SEC, Fast or Slow";        M, S, DB$
  16. 55 AA=S/60
  17. 60 BB=M+AA
  18. 65 E=BB/60
  19. 70 IF DB$="F" THEN E=-E
  20. 75 PRINT:PRINT
  21. 80 PRINT "            ***ANSWERS***"
  22. 85 PRINT
  23. 90 PRINT M;S;DB$ "        EQUATION OF TIME IN MINUTES AND SECONDS"
  24. 91 PRINT         "               FROM TABLE"
  25. 92 PRINT
  26. 95 PRINT E       "        EQUATION OF TIME IN DECIMAL DEGREES"
  27. 96 PRINT
  28. 100 PRINT MO;DA  "         MONTH AND DAY"
  29. 101 PRINT
  30. 105 PRINT LO;LN;DA$ "  LOCAL LONGITUDE"
  31. 110 F=C+E
  32. 115 G=INT(F)
  33. 120 H=F-G
  34. 125 I=H*60
  35. 130 J=INT(I)
  36. 135 K=I-J
  37. 140 L=K*60
  38. 145 N=INT(L)
  39. 150 PRINT:PRINT
  40. 155 PRINT G;J;N "   GMT WHEN THE SUN IS ON THE LOCAL MERIDIAN"
  41. 160 GL=G+T
  42. 165 PRINT
  43. 170 PRINT GL;J;N "   LOCAL TIME WHEN THE SUN IS ON THE MERIDIAN"
  44. 175 PRINT "               SHADOW POINTS DIRECTLY NORTH"
  45.